home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tk.d64 / pres.gizmo.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  25KB  |  24 lines
  1. 100 REM PRESENTATION AID    V 1.00
  2. 110 REM BY KEITH FALKNER    APR 84
  3. 120 REM **WARNING**  DO NOT CHANGE!
  4. 130 REM M/L PART WILL BE MOVED, AND
  5. 140 REM IT WILL NOT WORK THEREAFTER!
  6. 150 PRINT"[147]";:IFPEEK(1024)GOTO260
  7. 160 :
  8. 170 REM 40-COLUMN PET
  9. 180 POKE59468,14
  10. 190 POKE2561,21:REM # OF SCREENS
  11. 200 POKE2560,01:REM START @ # 1.
  12. 210 SYS2562:    REM $0A00
  13. 220 PRINT"[147]";:END
  14. 230 GOTO210:REM OK TO 'CONT'
  15. 240 :
  16. 250 REM COMMODORE 64
  17. 260 POKE53280,00:POKE53281,00
  18. 270 PRINTCHR$(14)CHR$(5);:REM WHITE
  19. 280 POKE3841,21:REM # OF SCREENS
  20. 290 POKE3840,01:REM START @ # 1.
  21. 300 SYS3842:    REM $0F02
  22. 310 PRINT"[147]";:END
  23. 320 GOTO300:REM OK TO 'CONT'
  24.